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م 


بسم الله الرحمن الرحيم 


تتقدم إدارة وفريق العمل بمنتدى دلفي للعرب بأطيب التحيات وخالص التهاني للأمة الإسلامية في جميع 
أقطار العالم عامة ولأسرة وأبناء المنندى خاصة, بمناسبة حلول السنة الهجرية الجديدة متمنية لهم قبول 
الأعمال والدوام على الطاعات والعبادات. .. 

بعد تلقينا ببالغ الحزن خبر انسحاب المشرف الفذ الأخ 512111718 الذي كان يشرف على 
المجلة. متمنين له النجاح والاستمرار قدما في مشواره العلمي. قمنا بجمع ما تيسر من مواضيع مع إضافة 
أطروحات متميزة محاولة لإتمام هذا العدد الذي نأمل أن يرق لمستوى متتبعيه.. . 
في هذا العدد... 
حاولنا جمع أكبر قدر من المواضيع المتنوعة سعيا لتغطية أكبر قدر ممكن من اهتمامات قراء المجلة. وحرصا 
على تقديم الأفضل فإننا نننظر آرانكم. اتتنقادانكم., أو أية تنبيهات بخصوص الأخطاء المطبعية أو 


المنهجية. كما يبقى قسم المجلة في اننظاركم لأي سؤال أو افتراحات أو موضوع بخصوص محثوى العدد المقبل 
بإذن اللّه. 


الكاتب: إدارة المتدى 
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البرمجة بالمنحى للكائن ‏ بقلم 


008 خطوة, خطوة 


أنت تريد أن تتعرف على أساسيات البرمجة بالمنحى للكائن Object Oriented Programming‏ 

أنت لديك بعض الخبرة بالبرمجة و تريد أن تتعرف على المنحى للكائن و تفهمه استنادا إلى خبرتك هذه 
وانطلاقا مما تعرفه من تقنيات برمجية. 

أن تريد أن تتلمس بيدك كيف تكون البرمجة بالمنحى للكائن , و ليس مجرد تعريفات ومصطلحات غامضة 
وشروحات طويلة مملة. 


إذاء و بدون مقدمات . وبدون تمهيد نظري. دعنا نيد 


الجولة الأولى 


ابدأ مشروعا جديدا في دلفي. ضع زرا B٤٥١‏ على نموذج الشاشة ثم نقرة مزدوجة اءناء عااا00 , نحن 
أمام إجرائية مناولة حدث 007011 للزر. من هنا نضع خربشاتنا للتجريب و الاستكشاف . 
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نعلم جميعا أنه يوجد في البرمجة مفهوم إسمه متغيرات 213015/ يمكن أن نحمل عليها قيم. مثل المتغير 
الذي سنعرفه الآن: 


Ck ) 5612615158 THOS OCE) £‏ 1ت ال © ال .هادهة 510015[ ح 771712101 1153© 15215063 
var‏ 


begin 


GMO 


فمنا بتعريف متغير إسمد ٤2۳ء۴۲‏ من ذوع 5170 ركلمة نوع تسمى في دلفي 7-٥‏ ). يمكنك الآن أن 
نسند أية قيمة نصية لهذا المنغير كأن تقول مثلا: FirstName := 'Ahmad';‏ 


(SERCO ES HOS 62 £‏ 2ت الك 11 كع 016 6 . HESA‏ 52ت 262 طهر 
Var‏ 


EE HSENAMES SEEM MDI 


begin 


دم 
ويمكننا التأكد من ذلك بطبع القيمة التي يحملها أو يشير إليها هذا المتغير ©115]0/30 على سطح 
النموذج: 


begin 
FirSLName := AN mad'?; 


Canvas. TextOut (10, 10, FirstName); 
ل‎ 
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نقوم أيضا بإضافة المزيد من المتغبرات: 


HOOJOCE) 8‏ 8512615125)) 1ه ل ال هرهة قا EOE‏ 215062613153 
00 

SEEING,‏ 2027125 5 سس 

LastName: string, 

BIBEN ولط‎ Ee: Dace 1-172 2 


begin 
FirstName := 'Ahmad';, 
LastName := 'Hamza';, 
JE AIDE 625 5 - MNCOCODEA 52 (1I0, د‎ 19 2 


Canvas. TextOut (10, 10, FirstName); 
Gan Va Ss. Mex EOU 6 (IO, SO, Ma 5 1121120 7 
Gan VAS. Rex EOU 6 )1 0 SU, DI دق 1ع‎ 6 EEN EE ADA EC) ( 


MOLE 


كما هو واضح أعلاه بالإضافة إلى 1501/20 وضعنا متغيرات جديدة: اللقب من نوع 5109 وتاريخ الميلاد 
من نوع ]1002 . ثم خصصنا قيما لهذه المتغيرات, المتغبرات الثلاث معا نمثل حالة فرد , والقيم تعبر عن 
فرد بذاته إسمه أحمد حمرة. 

ثم كتبنا على شاشة النموذج القيم التي نحملها هذه المتغيرات. 

البرنامج بعد التشغيل يكون شكله كالتالي: 

[romi 572 2 
Ahmad 


Hamza 
3/15/1980 
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الجولة الكانية 

المتغيرات التي حددناها سابقا هي من أنواع معرفة مسبقا داخل دلفي مثل string‏ و integer‏ وعأ702 وكل 
نوع له خصائصه. فنوع 501709 يحمل سلاسل من أحرف نصية. و/عوع]10 يحمل قيمة بعدد صحيح. و نوع 
1021 يحمل قيمة من نوع تاريخ. وكل متغير نقوم بتحديده سيحمل قيمة توافق النوع الذي انبثق من 
المتغير. هذا كلام معروف ومفهوم و من أساسيات البرمجة. 
الآن سوف ندفع بهذه المتغيرات إلى مستوى أعلى. ونستخدم نوعا جديدا من أنواع البيانات. 
المنغيرات التي عرفناها سابقا؛ سنقوم بضمها في هيكل واحد. هذه الهيكلية تسمى في دلفي ۲۴٩0۲١‏ , 
كالتالي: 

procedure TForm1. 8111021011 ع1‎ (Sender: TObject);, 


E02 
TPerson = record 
HE SIE MAME SE E MI 
LastName: string, 
BirthDate: TDateTime, 
end, 


Var 


م ارق 171235123 15ر15 
begin‏ 


قمنا بضم المتغبرات السابقة في هيكل واحد. ليعطينا ذوعا جديدا أسميناه 12/500 , هذا النوع الجديد 
هو نوع مركب. أي أنه نوع يتكون من مجموعة أنواع أخرى. 

كل تعريف داخل الهيكلية ۲٥۰٥۲۵‏ يسمى حقلا 0ا12 , فما كان متغبرات سابقا. أصبحت داخل الهيكلية 
حقولا لوغ 18507 . 

ثم قمنا بإنشاء متغير جديد 56/500 من نوع ۲۴۲۲۵۳ . أي أنه بإستطاعته نمثیل وحمل البيانات التي 
ينكون منها النوع ۲۴٥۲07‏ . 
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والآن و بإستخدام المتغير 71500 يمكننا وضع القيم فيه كالنالي: 


var 
ررق 5 2ع 575 2 عر‎ 
begin 
Person. FirstName := 'Ahmad';, 
Person. LastName := 'Hamza', 
Iê SOA. BLE د1ع60 62 >$ 626 سمح‎ ES (LOGO, د‎ L9 2 


إذاء بدلا من وضع بيانات الفرد في ثلاث متغيرات متفرقة, أصبح لدينا متغيرا واحدا يحمل هذه البيانات. 
وهو 26/500 . وللوصول لكل حقل في هذا المتغير؛ نكتب اسم المنغير ثم نقطة ثم إسم الحقل: 
Person .Fİrst Name‏ تماما مثل استخدامنا للخصائص في المكونات. 


طريقة عرض قيم هذا المتفير ستكون بالطريقة التالية: 


Canvas. TextOut (10, 10, Person. FirstName) م‎ 

CE 025 HEX 2601 6 (LO, SU, HOE 5 17ت‎ LENS 20220 2 

Gan Va S. Rex EOU E )1 07 SO, Da 66 7 ك5 حص ) يع 6 دفق‎ 2 BI BE ADA Ee) 
ACIS 


حنى تكون الصورة واضحة نعيد سرد الإجرائية بالكامل: 


procedure TForm1. Button1Click (Sender: TObject);, 
EVE 
TPerson = record 
i E GE NENE: SEL IAG 
Mas 2/255 SERT RI 
BLE EDENE @S TDA 531711 
end, 
var 
ECR 5 اك 1 2 رت‎ 5 ORF 
begin 
Person. FirstName := 'Ahmad', 
Person. LastName := 'Hamza';, 
ASE SOM o BLE 6020-52 $= 2066629-52 (190, 3, L9 2 


CER vS. FEX EOU E )1 47 1O, BEESON. BME 5 NEMS) 2 

Cen vag. HO EOE (LO, SU, BOE SOA o 225 ENES) 2 

Gan Va S. Rex EOU E (1O, BO, DI ECNOSEE(EERSOR. BIBE ADA Ee) ( 
AES 
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ملاحظات سريعة: 

لاحظ أن الإسم الذي أعطيناه للنوع 172/500 يبدأ بحرف 1 وذلك للدلالة على أنه 10/0 وهذا عرف 
منبع في لغة دلفي. 

لاحظ أيضا أننا قبل تعريفنا لهذا النوع وضعنا التعليمة 5/0 . وهذ أمر تتطلبه دلفي كلما أردنا إنشاء 
أنواعا خاصة. (حقيقة لا أعلم ما الحكمة من هذا) 


ما قبل الجولة المالعة 
قبل أن ننتقل للجولة الكالثفقترح القيام ببعض الإجراءات التنظيمية حتى لا تزدحم لدينا الأمور 
أولا: 


تعريف 127500 بدلا من أن يكون محصورا في إجرانية 0010101]نا8 وخاص بها؛ نقوم بنقله إلى ملف 
وحدة جديدة, نسميها 000 . حتى تتعرف عليه بقية الإجرائيات, ولفوائد أخرى سوف تتكشف لنا. وذلك 
كالتالي: 

E OO 


interface 
uses 
SSUES 


type 
TPerson = record 
FirstName: 512120 
LastName: string, 
B1 كد‎ 010218 Da Ee RIME 
end, 


implementation 


end. 


كما هو واضح في السرد أعلاه, إسم الوحدة 000 . قمنا بوضع تعريف النوع 1561500 قبل قسم 
همع معام . كما قمنا بوضع التعليمة 6/0 قبل تعريف النوع للدلالة على أن ما يلي هذه 
التعليمة هي تعريفات لأنواع. 
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أيضاء نقوم بوضع إسم الوحدة 00 ضمن قائمة الاستخدام كع في وحدة نموذج الشاشة, كالتالي: 
uses‏ 
Vari AMES, 0611255257 CGEAPA1ICGS, CONE OLS,‏ ره للع ناك زد Messages,‏ ( 15 تك شا 


م 8168 55616 ; 5185© ال 3 دطام 1591151035 
TODOS‏ 


الآن أصبح شكل مقدمة الإجرائية )ا1۳١‏ 0اا كالتالي: 


521505651173 EOE . BU EO LCI TK ) 8:5: 61517 5 ١ 166:7 اتات ت‎ 8 


var 
ECESORM: 225 7ن‎ 
begin 
ذانيا:‎ 
ننقل التعليمات الخاصة بعرص البيانات ووضعها في إجرائية خاصة منفصلة. نقوم بتعريف الإجرائية نحت‎ 
قسم 011/31 كالنالي:‎ 
OE 3 WE! EE 


procedure ShowPerson :ط)‎ TPerson), 


512565601175 EOE. SOAOWIEESOR (PS ECE SOR م‎ 
begin 

Canvas. TextOut (10, 10, P.FirstName);, 

CE VAS HEX EO Ê (LÛ, SOU, 2. LES ENEME ) 2 

Canvas. TextOut (10, 50, DateToStr(P.BirthDate));, 
end; 


أي أن إجرانية العرض 510105615010 تستقبل محدد /اعأ03130 إسمه © من نوع 500]ع12 . 


٠ 


وتعليمة الإستدعاء لها كالثالي داخل Button 17i)‏ : 


3 ۰ 


ShowPerson (Person), 
61 
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وأصبح شكل إجرائية )ءا1۳١‏ ااا كالتالي: 


1215062613155 EOE . ل هزهة قا‎ 12/6 (SEACEES HOS CECE) م‎ 


var 
AOE SOMES KOSE SOM 2 
begin 
Person. FirstName := 'Ahmad';, 
Person. LastName := 'Hamza', 
AEE SOA ELE ع ارك لل ,3 ,1900( 155661613101315 =£ 15ت قلت‎ 


ShowPerson (Person) م‎ 
©2127 


هل الأمورواضحة إلى حد الآن. 

إذا لم تكن كذلك, فقد يعني هذا أنك لست معتادا على إستخدام أنواع البيانات المركبة. لذلك وقبل 
الدخول للجولة الثالثة, أقترح إعادة مراجعة الجولة الثانية واستخدام أمثلة من عندك لإنشاء أنواعا أخرى 
باستخدام هيكلية ۲٠۰٥۲۵‏ واستخدامها بأكثر من طريقة حتى تتمكن منها. 


الجولة الماكة 
هذه هي الجولة المنتظرة. . سندخل الآن عالم المنحى للكائن .. 
في الجولة الأولى عبرنا عن بيانات الفرد من خلال ثلاث متغبرات بأنواع بيانات مختلفة: 
1 
EM SIE NAME SEEING,‏ 


LastName: string, 
ld E 010511538 181013 65311111 


وفي الجولة الثانية عبرنا عن بيانات الفرد بنوع بيانات جديد ۲۴٠۲0۸‏ ببنية 260010 . : 


EOE 


TPerson = record 
FirstName: string, 
Tas EName 2 SERI AG 2 
BirthDate: TDateTime, 

end, 
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في هذه الجولة, سنطور نوع 12/500 أعلاه من بنية ١١٠ء٠۲‏ إلى صنفية دا٣‏ . هل قلت 01355 نعم 
55 أي أننا الآن سنتحدث بالمنحى الكائني. 
كيف نحول بنية ١١٥ء٠۲‏ إلى صنفية . التغيبر بسيط كالنالي: 
EOE‏ 
TPerson = class (TObject)‏ 
Hi FS EName: 5 62127‏ 
LastName: stringer‏ 


BIFENDa Ee: _NDateli me, 
end, 


بدلا من تعريف ۲۲٥۲۸‏ على أنه بنية ١۲٥ء٠۲‏ ؛ عرفناه على أنه صنفية 21355 


الآن أصبح لدينا 1255© . صحيح شكلها بدائي, و لكنها صنفية مكتملة, إنها صنفية بإسم 1501500 ومشتقة 
من صنفية أخرى إسمها ا۲٥‏ زط0 التي تعد أصل جميع الصنفيات في دلفي. 

في دلفي كل صنفية 01355 لابد أن تكون مشتقة من صنفية أخرى, وقد اخترنا:7100[60 لتكون أساس 
الاشتقاق لصنفيتنا ۲۶۲07 . 

الآن سوف نرى كيفية استخدام هذه الصنفية . 


51506561135 AOE ML 1015ل‎ EOR LCL 16ت‎ 5512615128 HOO ECE) £ 


WEJE 
2125905 1225 برق‎ 
begin 
Ferson := TPerson. Create? 
Person. FirstName := 'Ahmad';, 
Person. LastName := 'Hamza', 
AEE SOMA o BLE 6002-5526 $= 2266628-52 ( 1I0, د‎ L159) 2 


ShowPerson (Person) م‎ 


end, 
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لقد قمنا أولا ببث الروح في المتغير ۲٠١50١‏ بخلق الكائن الذي سيمثله من خلال المنهاج عة٠۲)‏ . وقد 
عبرنا عنه بالأمر: Person := TPerson.Create‏ . 
المتغير 6/500 قبل استخدامه هو مجرد جسم ميت مشكل بحسب القالب 75/500 و عندما يتم إنشائه أو 
إحيائه بأمرعغدع0 يصبر كائنا »زط0 حيا في الذاكرة, وجاهزا للإستخدام. 
عند الإتتهاء من استخدامه. و انتفاء الحاجة إليه. يجيب علينا أن ننهيه و نميته من خلال المنهاج عع , 
كالمانلي : Person. Free‏ 


إضافة العمليات على الصنفية 
الصنفية كما عرفناها حتى الآن تحوي بيانات فقط. والتي تعبر عنها الحقول التي داخل الصنفية مثل 
.۴irst Name‏ الآن ماذا لواحتوت الصنفية على عمليات 006121800 أو بمصطلح آخر إجرانيات. لنجرب. 
داخل الصنفية و بعد تعريف الحقول نقوم بتعريف الإجرائية أو الدالة ٣۳٠‏ ١|انا۴اءت‏ كالتالي: 
CLASS 7301513 COE)‏ مرق 15ت 172 
RSE MAME SE E OG‏ 
LastName: string,‏ 


BIEENDaE e: TDa ee Lî Mile £ 


CIE 


بعد كتابة تعريف الإجرائية بالكامل, تأكد من أن مؤشر الكتابة على سطر هذا التعريف وباستخدام لوحة 
المفاتيح قم بإصدار الأمرح + 501 + 001 . سوف تقوم دلفي ببناء جسم هذه الأجرائية. ثم نضع فيها 
الكود اللازم لإعطائنا إسم الفرد بالكامل. 


جسم الإجرائية أو ال 00100 سيكون كالثالي: 


{ TPerson } 


J ME E LOM 17165155 (12 , CEE EUAN 1731ل‎ 5 SELANGS 
begin 

FesSUIl E : HirSEName 2 1 1 2 aS 0127 
end, 
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نقوم بتعديل إجرائية العرض لدينا كي نستفيد من الدالة الجديدة. 


procedure TForml.ShowPerson )2: TPerson); 
begin 
CER VES 25 60001 LO, 10, BE, ESSE NEMS) 2 
69120955 عا نات 6 2ش‎ (LO, S30, BEB. 1-1-5 611-601 2 
CER VAS 7 5-6006 LO, S50, 22 6 ع ع درك كك‎ (OB EA DAES) ( 2 


651105513 . 1!" كدت‎ COTE (LO, SO, BEB. COC EULA LINEN) 8 


end; 


ماذا ليغا ا ن 
لدينا الآن صنفية 21355 إسمها 1591500 . هذه الصنفية نحوي حقول لبيانات. كما نتحوي على عمليات 
بالأحرى عملية واحدة). العملية ممثلة في الدالة التي إسمها 8/300|ال ۲۴ع . لاحظ إن جسم الدالة 
خارج جسم الصنفية ولكنها تنبعها. و الدليل على ذلك إن إسم الدالة يكون مسبوقا بإسم الصنفية كالتالي: 


function 1 ذاه 25 عظ‎ . GetFul IName: string; 


الصنفية بوضعها الحالي تعتبر صندوقا مغلقا. لماذا. لأن حقول الصنفية و بياناتهاء و كذلك إجرائياتها 
لايمكن الوصول إليها إلا من خلال كائن ينبعث منها. أي أننا لا نستطيع أن تستخدم حقولها أو نستدعي 
إجرائياتها مباشرة؛ بل يجب أولا أن نقوم بتعريف متغير من نفس نوع الصنفية, ثم نقوم بخلق هذا المتغير 
من خلال الأمرعغ]جع0 ليصبح كائنا ©ع[05 . عندها فقط وعبر هذا الكائن نستطيع تلمس حقول الصنفية 
واستدعاء اجرانياتها. 


وقغة تأملية 
ماهي الصنفية 01355 و ماهو الكائن أءعزط0 وما العلاقة بينهما. 
الصنفية 55داء يمكن اعتبارها قالب, هذا القالب مشكل بحيث يحوي العناصر الي صممت له مثل البيانات 
(المتغيرات و الخصائص) والعمليات (مثل الإجرائيات و الدوال و المنهاجيات). 
المتغير من نوع الصنفية هو جسم مستخرج من هذا القالب بعد صبه فيه. بحيث يكون شكله شكل القالب, 
ولكنه جسم ميت لا حياة فيه . مثل المتغير 251500 قبل خلقه. 


الكائن 0020 هو الجسم السابق المستخرج من القالب لكن بعد بث الحياة فيه وخلقه من خلال 6أدع:0 . 
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خواطر ودساؤة فت 

» من أين أتت أوامر مثل ]0162 و ۴۲٠٠١‏ ؟ فهي ليست موجودة في صنفية 1561500 . 
Create‏ و Free‏ هي مناهج Methods‏ تابعة للصنفية 0ع[106, ولأن صنفية 12/500 مشتقة 
منها؛ فهي بالوراثة تملك كل ما تملكه صنفية 0 100(2 . 
المنهاج عأدء01 يسمى 000500101 أي المشيد أو الباني الذي يقوم ببناء وتجسيد الكائن. والمنهاج 
عع" يسمى Destructo‏ أي الهادم أو المدمر. رفي الواقع المنهاج ۴۲٠١‏ هو مجرد إجرانية تقوم 
باستدعاء الهادم الحقيقي وهو لإ5]:0ع0 ويمكننا استدعانه مباشرة). 


© شل يمكن اعتبار الحقل 15001300 خاصية ب اءع000 وهل يمكن اعتبار الدالة GetFulIName‏ 
Method lş lie‏ $ 


الحقل ©11500/300”ا الآن مجرد متغير داخل الصنفية. يمكن اعتباره شبه خاصية. اما الدالة فنعم 
هي منهاج أو method‏ . 


٠‏ ماذا يحدث لولم ننه الكائن ونتلفه؟ 


سيبقى عالقا في الذاكرة محتلا لجزء منها حتى بعد إنتهاء تشغيل برنامجنا. وإذا تكرر خلق كائنات 
أخرى دون إتلافهاء فكل عملية خلق وتجسد لكائن سيجتل حيزا إضافيا في الذاكرة, قتزداد بذلك 
حجم الذاكرة المستنزفة, والذي يسمى ©129دء! رمع" أي تسرب في الذاكرة. 


هوهو 0 


رفي لغات أخرى مثل 0# و جافا توجد تقنية إسمها 001162807 6300396 جمع القمامة تقوم نيابة 


فيه 


عن المبرمج بكنس وإتلاف ما علق في الذاكرة من كائنات غير مستخدمة) 


٠‏ هل يمكن إنشاء أكثر من كائن لنفس الصنفية في نفس الوقت؟ 


نعم. يمكن أن يكون لدينا الكائن 2565001 و 56/5002 وهكذا في نفس الوقت, وکل کان منهم 
لديه صفاته الخاصة, هذا أحمد , و ذاك علي. كل كائن يتم استحضاره يسمى أيضا 105200 أي 
حضور أو نجسد أو تميل للصنفية التي يمثلها. 

لآ 
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ماذا أيضا 
إذا فهمت ما تم طرحه في هذه الجولة. أو إذا أصابتك ربكة أو دوخة بسيطة. أو إذا أحسست انك فهمت ولكن 
جرد من عقلك لايريد أن يفهم ولا يريد أن يرى الأمور بهذا المنظار الجديد؛ فتهانينا .. أنت على المسار 
الصحيح !! 
الآن أقترح أن نتمرن قليلا على استخدام الصنفية قم بإنشاء متغبرات أخرى من نفس نوع الصنفية 
Person‏ . وسمها مثلا: 01و5اء5 و Person2‏ , أضف حقول أخرى على الصنفية, أضف إجرائيات ودوال 
أخرى, وحاول استدعانها. قم أيضا بإنشاء صنفيات أخرى, و طبق عليها اختباراتك. 
نحن الآن كشفنا جزدا بسيطا من الغطاء حول مفاهيم المنحى للكائن. مفاهيم المنحى للكائن عميقة ومتشعية, 
ويستحسن أن يتم الخوض فيها برفق وهدوى, فلا يتم التعمق فيها إلا بعد استيعاب ما تم فهمه وممارسته 
لأكبر من مرة. 
في الجولة القادمة سوف نطور من الصلفية 151507 ليصبح لديها خصائص د5ع]/ء000 ومنهاجيات 
5 منظمة بطريقة أكثر احترافية. 


الجولة الرابعة 
في هذه الجولة سنغوص أكثر في مفاهيم المنحى للكائن. ونرقى بالصنفية 71261500 إلى مستويات أعلى. 


الفظورية 
ننظر الآن إلى موضوع المنظورية ۷ااااطااا أو مجال الرؤية ع000 بالنسبة لعناصر الصنفية . أي ماهي 
العناصر داخل الصنفية التي يمكن للعالم الخارجي أن يراها و ينفذ إليها, و تلك التي تكون محجوبة عنه. 
ماذا لوأضفنا داخل الصنفية كلمة ]011/2 قبل المتغيرات مثل التالي : 
TPerson = class (TObject)‏ 
RES ENaAMe: SEIN,‏ 
Mas ENaAme SERI RG 2‏ 
BI 01/2555 Da 153 RAME‏ 


JÊ WIA كت عات‎ COE EU LN INEM: SEL LMG 2 
22006 
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ثم نجرب برنامجنا. سنلاحظ أن دلفي أعطتنا رسالة خطأ عند التعليمة Person.Firs Name‏ , لماذا؟ لأن 
الكائن ۲٠۲50١‏ بعد هذا التغيير لا يستطيع أن يرى الخصائص والإجرائيات التي تم وسمها بكلمة 1021م 
في الصنفية. 
الوسم ]0110 تعني خاص أي خاص بالصنفية فقط, و بالتالي فإن أية تعريفات يتم سردها نحت قسم 
ااام لايمكن النفاذ إليها إلا فقط من قبل الاجرانيات التابعة للصلفية ذاتها . 


نفس الأمر لو استخدمنا الوسم 0لعنعع]0:0 ومعناها محمي. التعريفات تحت هذا الوسم لايمكن النفاذ إليها 
أو رؤيتها إلا من قبل الصنفية ذاتها أو صنفية أخرى مشتقة منها (سنناقش الاشتقاق لاحقا). 
MEC ESO > CLASS (UO COB)‏ 


RAS 62/2025 SETI 


أما إذا وضعنا الوسم انام وتعني عمومي أو عام. فإن كل ما هو نحت هذا القسم يكون مرنيا ومتاحا للعالم 
خارج الصنفية. 


1125155 ررق‎ CLASS ( HOO O86) 


RRS ENaAMe: SELIM 


وإذا لم نقم بتحديد منظورية عناصر الصنفية, فإن دلفي افتراضيا تجعلها عمومية ومتاحة. 


الخصائص 
سنقوم الآن بتحويل المتغيرات في الصنفية إلى خصائص 0000/05 . و لكن قبل أن تقوم بذلك. أقترح أن 
يتم إعادة ترتيب الصنفية وفق التالي: 


TPerson = class (TObject) 
OE WE! Eê 

Mas 60/216 2 SERT AG 

BIE 12555و‎ 1119/31 53 RAME 
OUOLLE 

RIS ENaAmMme: SEIN 

funCctlon 6 111111771311: string? 
end, 
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أي نجعل جميع المتغيرات بالصنفية نحت قسم عاد ۷م ما عدا المتغير 150/300" يكون نحت قسم 


. public 
أقترح أيضا أن يتم حفظ ال ملف 00۲ للاحتياط.‎ 
نبدأ بتجويل المتغير 1500/30 إلى خاصية, وذلك بكتابة التعريف /ناءم20م قبلها كالتالي:‎ 


OUOLLE 
EOE EY AU ES EMEMES SELIM 


الآن. نضع مؤشر الكتابة على سطر تعريف هذه الخاصية و نعطي الأمر ))٣|+5۸۴۲+٣‏ وسيقوم محرر 
دلفي آليا بتكملة التعريف وتوليد الكود اللازم. شكل الصنفية سيكون كالتالي: 


TPerson = class (TObject) 
اقلم‎ VE! EE 

LES 111211112 $ SIE 211167 8 

BS HERDANE MDa 53 N ME, 


OUOLLE 


f UR OE ON Ce BEAU I Name: SEET MRI 
2561 


SOR : HE EES ES 20/212 (CORSE Value: SELIRG) £‏ شت جر 52260253 هر 
begin‏ 

FFirstName := Value, 
end, 


لقد قام المحرر بتوليد تعليمات إضافية آليا والتي تمثلت في الآتي: 


٠‏ إضافة متغبرا جديدا أسماه 150/300" أي بنفس اسم الخاصية مسبوفا بجرف ۴ وجعل نوعها من 
نفس نوع الخاصية أي 100أد. 

٠‏ إضافة إجرائية بنفس إسم الخاصية مسبوقة بكلمة أع5 وهي 1500/2300 1أع5 مع مجدد 
rameterهم‏ بنفس نوع الخاصية. 

٠‏ إضافة جسم الإجرائية ٠۳٣2١ء۲‏ أ٣اع؟‏ والتي ينم فيها نخصيص القيمة الممررة لها للمنغير 
FFirstName‏ . 
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٠‏ في سطر تعريف الخاصية قام بتحديد مصدر قرادة قيمة الخاصية ۲٠۵١‏ ومصدر نحديد قيمة 
الخاصية ع11//. وفي حالتنا هذه فإن قيمة الخاصية يستمدها من المتغير5]0/200 |۴۴ , كما أنها 
نحدد بواسطة الإجرائية SetFirstN ame‏ . 


إذا وجدت كلامي السابق غامضا أو مبهما . فلا تقلق, سيتم توضيحه أكثر بمزيد من الأمئلة. 
يمكن الآن تكرار العملية السابقة مع بافي المتغيرات. ننقل تعريف المتغيرات LastName‏ وع8100231 


إلى قسم »ااام . ثم نضع مؤشر الكتابة على سطر إحدى الخصائص وتنفيذ الأمر 001+5616+0 ليقوم 
المحرر بتوليد التعليمات المتعلقة بهذه الخصائص. 


شكل الصنفية سيكون كالتالي: 


TPerson = class (TObject) 
اقلم‎ Wz Eê 
EE 125 012113 5 16 12318 
FLastName: string, 
JEL Jé DEI 26 © DENE LMS; 


SEE BLE ADEE (COARSE Values TDa te MIME) £‏ 2ك نت 0522 اك 
procedure SetFirstName (const Value: string),‏ 
procedure SetLastName (const Value: string),‏ 

OUOLA E 
را حك ناهر‎ HI 25 ENaAme: SEEING عش اك 236 ط‎ 5 61/237112 WAI Ee SEERA HS ENAME 
property LastName: string read FLastName write SetLastName;, 
DEOODEEEY Eu HENDA Ee Da Ee me Eead HELE EADIE MEI Be 52 هع‎ 12 211-522 7 


URGE OM 62 6 1ن‎ Names SEEN ROE 
end, 


وهذه مجموعة ال ١۲ء‏ التابعة لهذه الخصائص: 


procedure TPerson. SetFirstName (const Value: string) م‎ 
begin 

FFirstName := Value; 
57 


procedure TPerson. SetLastName (const Value: string), 
begin 

FLastName := Value; 
OME, 


HE NDA 622 (CSS E Values AD Ee Me‏ 65 52 رق 5 كم 055260222 هر 
begin‏ 

FBirthDate := Value, 
end, 
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إضافة خاصية جديدة 
الآن نقوم بتحديد خاصية جديدة. الخاصية ستكون بإسم 506 أي العمر. وغرضنا منها أن نخبرنا بعمر 
الفرد من واقع معلومة تاريخ الميلاد. نريد أيضا من الخاصية أن تكون للقراءة فقط, أي أنها تعطي عمر 
الفرد فقط ولا تقبل أن يتم نحديد قيمة هذا العمر من خارج الصنلفية . 
OUOLLE‏ 


property Age: integer read GetAge; 


لاحظ أنه في تعريف الخاصية حددنا ۲٠۵١۵‏ فقط و لم نحدد ع][]الا . 
إذن حساب العمر سيكون من الدالة التى أسميناها عو85اء0 كما هو واضح أعلاه. يمكئنا تعريف هذه الدالة 
وبناء جسمها يدوياء أو نترك محرر دلفي يقوم بهذه العملية. 
تعريف الدالة ©عو5اء0 سيكون نحت فسم 011/2 كالتالي: 
private‏ 


function GetAge: integer, 


أما جسم الدالة ©0590 سيكون كالتالي: 
function TPerson. GetAge: integer,‏ 
begin‏ 


HeSUIE : 26 0152 (MEARS OAD (MOV, BIE ER DAE) ( 
ERA, 


+44 هوهو + جوج 


الدالة تقوم بإعطاء العمر بصورة تقريبية: باستخدام الدالة 230م305ع, . (يجب إضافة دانالاع]03 إلى 
قسم دع5لا). 


لاحظ أن الدالة “اعت معرفة في قسم 011/2316 وبالتالي فإنها لن نكون مرنية للعالم الخارجي. 
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في 


الآن لنستخدم هذه الخاصية الجديدة في شاشة العرض لدينا. 


procedure TForm1l. ShowPerson م (727502ع2 1 :ط)‎ 
begin 
CEM VES. ع2‎ EOE (1O, 1O, B2. 21255321 ۶ 
Cen aA Se HO EOE (LO, SU, B2. LAS 0-2 2 
Gan va Ss. Hex EOUE (IO, SO, 125 6 2ع درق 1ت‎ (E. BI EEADaA EE) JF 


CEM VAS. HOODIE (LÛ, SU, 2. COE MUL MEMO J 2 


EOI 


3/15/1980 


Ahmad Hamza 


الأزيد من الضوضيح 
عندما كانت 71500300 مجرد متغير في الصنفية. يمكن لأي مستخدم للصنفية أن يقرأ فيمتها أو يكتب لها 
قيمة جديدة دون فيود. فيقول Caption := Person.FirsNa me‏ أو يقول =: Person.FirstName‏ 
“Ali‏ 


بعدما حولنا هذا المتغير إلى خاصية /5/ع100م, أصبح لدينا القدرة لأن نحدد قيودا نجكم عمليات القراءة 
والكتابة لهذه الخاصية. كيف ذلك؟ الخاصية تعطينا الخيارات التالية للتحكم: 
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¢ + 0% 


أي مستخدم للصنفية عندما يريد معرفة قيمة الخاصية أي قرانتها فإن الصنفية تعطيه القيمة حسب 
الثالي: 
م 117311 5< 111 property FirstName: string read‏ 


الخاصية تعطيه القيمة الموجودة في المتغير 1150/2300" . 


property FirstName: string read GetFirstName;, 
رلم نحددها في مثالنا السابق, ولكن في‎ ع٣ذ‎ ١١2۳٠ الخاصية تعطيه القيمة النانجة عن دالة إسمها‎ 
الخاصية عع حددنا دالة تعطي القيمة)‎ 


أي مستخدم للصنفية عندما يريد أن يحدد قيمة الخاصية أي كتابتها فإن الصلفية تسمح بذلك حسب 
الثالي: 


property FirstName: string read FFirstName write 181 25 1 17 3111© م‎ 


مه هوء 


الخاصية تأخذ القيمة وتضعها مباشرة في المنغير ۲۱2ء۴۴۲ 


PEOOE E EY AMES ENaAMe: SEEING mead AEM FS ENaAMe MEI Be SC ERAS FS عات‎ 


الخاصية تأخذ القيمة وتمررها أولا إلى الإجرائية 2۳١۴۲ء5‏ التي ستقرر ماذا ستفعل بها. 


AMES ENaAmMe SEEING Medd AEM Ss EMAME‏ رن عت هت سام 


¢ + ٠+ 


الخاصية لا تقبل أية قيمة لهاء أي أنها للقراءة فقط 0017 ١220‏ ترفض أية قيمة تعطى لها. 


م 17311 5ط 111 ع5 property FirstName: string read GetFirstName write‏ 
عند القراءة تعطي ناتج الدالة ٠2۳١ء۲‏ أ۴اعت وعند الكتابة تأخذ القيمة وتمررها إلى الإجرائية 
SetFirstName‏ . 
إذن هذه هي خيارات تحديد عمليات القراءة و الكتابة للخاصية, أي كيفية قراءة قيمة الخاصية وكيفية 
نجديدها. عمليات القرادة و الكتابة للخاصية تسمى Geers‏ و Setters‏ . 
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العدد رقم :04 4 Issue‏ 


عندما نطلب من محرر دلفي إكمال بناء كود الخاصية بواسطة الأمر 0+غ]51 +0161 يقوم بتوصيف ال 
]661 على أنه متغير من نفس نوع الخاصية مثل ©1/5]0/200, ويقوم بتوصيف ال 5٥۲٤۲‏ على أنه 
إجرائية بمحدد من نفس النوع مثل ©51/50/300]ع5. هذه هي الوضعية السائدة في أغلب الأحيان, إذا أردت 
وضعية أخرى يمكنك تغيبر ذلك. 


£ هو 


في ال ااك مثل إجرائية ©5]115001/30 نرى أن الإجرائية توجد بها تعليمة واحدة و هي : 


Value‏ =: 1150/30 و هي التعليمة الوحيدة التي يصعها محرر دلفي. و التي نحتاجها الخاصية لمعرفة 
قيمتها. 


ملاحظة 


هل لاحظتم أخوتي أن المتغيرات التابعة للخصائص مثل "۴۴۲۶۸۱2 و25031/2300 احا تبدأ بحرف ۴ ؛؟ طبعا 
نستطيع أن نسمي هذا المتغيرات بالطريقة التي نريدها, ولكن وكعرف عام أيضا في دلفي؛ تكون هذه 
المتغيرات مسبوقة بحرف ۴ للدلالة على أنها 1210 أي حقل داخل الصنفية. 
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فيء في الحلق 
يوجد شيء في حلقي يزعجني منذ بدئنا للجولة الثالثة. ولم أشأ أن أشير إليه حتى لا أشوش أو أربك مسار 
تفكيرنا وفهمنا للأمور, و لكن الآن و بعد أن استوفينا جولتنا الرابعة, أظن أن الوقت قد حان لأن أفصح 
عله . 
تذكرون سادتي أنه عندما قمنا بإنشاء أو خلق الكائن ١50١ء٥‏ فعلنا ذلك من خلال التعليمة: 
MM TS‏ ررمت رمس 


وكما تذكرون أيضاء فقد أشرنا إلى أن الكائن الذي ينشأ يجب أن يتم إتلافه بعد الانتهاء من استخدامه. 


)0. كقاعدة ذهبية : عند خلق أي كائن يجب أن يغلف الكود الخاص بالتعامل مع هذا الكائن ضمن حائط 
kr..."‏ وذلك كالتالي: 


15 $3 TAS ESO, CECA E O, 
EE 
PERSON HIirSENa2mMme : "25 2 
Person.LastName := 'Hamza';, 
Person.BirthDate := EncodeDate (1980, 3, 15); 


ShowPerson (Person) م‎ 


1 EL LF 
عات‎ SOI 22 
6 


بهذا نضمن أنه إذا حدث أي خطأ عند استخدامنا للكائن 56/500 فإن برنامجنا لن يقفز من مكان الخطأ إلى 


خارج الإجرائية؛ بل يستمر ويذهب إلى التعليمات نحت قسم 7021 ليقوم بإزالة هذا الكائن ويحرر 
الذاكرة منه. سواء حدث خطأأم لم يحدث. 
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فيه من الفلسفة 
بعد أن أخذنا وبطريقة برمجية فكرة عن مفاهيم المنحى للكائن, لنسرد هنا بعضا من المصطلحات الخاصة 
بهذا المجال. ولتعذرني أخي القارئ فسوف يكون في حديثنا بعض الفلسفة, فأرجو منك أن تخلع 1-501 
البرمجة و تلبس عباءة الفلسفة. و نحمل معي قليلا. 
Entity‏ . 
بمعنى كينونة, أو كيان أو وجود ويقصد به أي شيء في غير عالم البرمجة سواء كان هذا الشيء مادي أو 
معنوي. في مثالنا السابق كان الأستاذ لله أحمد حمزةلله هو إنسان بشحمه و لحمه يأكل و يتنفس و يمشي في 
الأسواق, مثله مثل غبره ممن هو إنسان, إذن كلمة إنسان تعبر عن مفهوم تجريدي يجمع كل من هو بني آدم , 
فيمكن القول أن أحمد حمزة هو /6ااء كينونة, وأن إنسان كينونة أيضا لكن بمفهوم نجريدي أعلى. 
Class‏ 
بمعنى صنفية. وهي إطار تجريدي يضم الكينونات التي نرى أنها تتشابه في سماتها و تصرفاتهاء الأخ 
لله أحمد حمزةلله رأيناه يشبه في شكله و تصرفاته أفرادا آخرين مثل للهعلي لله و للهإسماعيل لله. عليه 
يمكن أن نضمهم نحت مسمى واحد و هو إنسان أو شخص. فأحمد إنسان وعلي إنسان وإسماعيل كذلك, هذا 
المسمى الموحد الذي يجمع بينهم نحدده أكثر برمجيا ونقول عنه صنفية 55داء ونسمي هذه الصنفية 
0 . و نحدد في هذه الصنفية العناصر التي نرى أنها تجمع بين هؤلاء الكينونات أو التي تشكل 
مفهوم إنسان. في مثالنا السابق كانت رؤيتنا ضيقة. وحددنا فقط ثلاثة أو أربعة عناصر تجمع بين هؤلاء 
الأفراد أو يضمها مفهوم إنسان مل ع2۳ "١ء۴۲‏ و35037/3006١‏ . ووضعناها داخل هذه الصنفية. 


Object 

وتعني كائن أو ماهية. و الكائن هنا هو وجود برمجي. فبعد ما رسمنا إطارا لصنفية 10500 . نقوم 
باستحضار أو تجسيد كائن برمجي من نفس الفصيلة أو الصنفية فنقول ع500.0621ء70 =: P٣0١‏ ثم 
حددنا أن هذا الكائن البرمجي إسمه الأول “أحمد” وإسمه الثاني لله حمزةلله . بحسب الخصائص أو العناصر 
التي أطرناها في الصنفية. الكائن 5507 الذي إسمه الأول لله أحمدلله وإسمه الثاني للهحمزةلله هو كائن 
برمجي. من فصيلة أو صنفية 756/507 يعيش في عالمنا البرمجي أي برنامجناء وأردنا به أن يمثل السيد 

لله أحمد حمزةلله الحقيقي الذي يعيش في أرض الواقع. 
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أ يل ورد 
من خلال قسم المجلة في منتدى دلفي للعرب يمكنكم إخوتي الكرام طرح أية استفسارات تخص ماورد في هذا 
المقالة لمناقشتها سويا. 


إذا أحسست أثناء قرانتك لهذا المقال بوجود أي غموض أو لبس أو عدم وضوح كاف, أو إطالة زائدة, يرجى 
الإشارة إلى ذلك و تحديد الموضوع أو الجزء الذي يعاني من أي عيب حتى يتم تعديله و نتحسينه . أيضا إذا 
كان لديك أي اقتراح أو ملاحظة تشعر أنها ستسهم في زيادة توضيح المفاهيم التي طرحت في هذه المقالة فلا 
تتردد أخي في طرحها. 
أيضا إذا وجدت أية أخطاء ضمن طرحنا لمفاهيم المنحى للكائن؛ فإني أرجوكم أن تقوموا بالتنبيه إليها حتى 
يتم تنصحيحها فورا. 
مرفق مع المقالة الكود البرمجي الذي استخدمناه في هذه المقالة مقسم حسب كل جولة. 

الجولة القادمة 
الجولات القادمة ستكون في الجزء الثاني من هذه المقالة إن شاء الله و فيها سنتوسع في الحديث عن 


وه جو ٠5‏ 


الصنفيات. من ذلك كيفية إنشاء صنفية مشتقة من صنفية أخرى, وخيارات لإستخدام الخصائص وال مناهج. 


مها 9 


كذلك كيفية حفظ واستراجاع البيانات الخاصة بالكائنات في برنامجنا. 
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العدد رقم :04 4 Issue‏ 


شيء من الصور 
الآن أترككم مع بعض الصور التي تلخص بعض ما تم الحديث عنه حول مفاهيم المنحى للكائن. 


TPerson = Class 
عبارة عن فالب‎ ۲۲٠۲07 الصلفية‎ 


Maa 
FerSOnNn: TBeEFSON 


المنغير 500 من نوع الصلفية ۲۶٣٤۲07‏ 
جسم ميت 

901725215 , 01ت 71193153 £3 (وزت 22125 
Person‏ صار كائنا حيا ]0 ع[00 له مكان خاص به 
في الذاكرة 


22-67 : 2112523115 :ررقن 5 257 


الكائن 500]ع بعد مزيد من التحديد لخصائصه 


JÊ J SOI 7 EOE 


الكائن ٥٠۲50١‏ بعد إماتنه وعودته لمجرد متخير 
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نسخ الملفات في دلفي 


و 


في حالات كثيرة, قد تحتاج في برنامجك أن تقوم بنسخ ملفات من موضع لآخر.. . 
لنر كيف (وبكم طريقة؟) يمكن القيام بذلك من خلال اماع( 
1. استخدام تابع ۸۲1 معرف باسم »!| الام00) كما يلي: 


function CopyFile (lpExistingFileName, lpNewFileName: PChar; 
151531112218568: BOOL): 50617: 55063311: 


if CopyFile('c:\windows\explorer.exe', 'd:\explorer.exe', False) then 
ShowMessage ('OK') 

else 

ShowMessage('Failed'); 


تتطلب الدالة كتابة المسار الكامل للملفين. المعلمة الثالئة ( كاكا>1۴۴|اأ۴ط) تعني إخفاق الدالة حالة وجود 
الملف. 
يمكنك إعادة صياغة تابع خاص بك لتسهيل الاستخدام. مثال: 
function MyCopyFile (const Source, Dest: string; Overwrite: Boolean =‏ 
False): Boolean;‏ 
begin‏ 
leê )2 815212 (SOUECEY ¢‏ ص روم 66 RESULE FS‏ 
(DES 5 +‏ عدت 2 لكا لل a1 11e Pala De‏ ات 16 1 PCa E (INE‏ 


ExtractFileName (Source) ), Overwrite); 
end; 
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2. باستخدام إجرادات التحكم في الملفات BlockWrite/ BlockRead/ Assig File)‏ ...) يمكن نسخ 
الملفات بشكل يدوي والحصول على سرعة أكبر. مع إضافة مكون 757001255821 لتوضيح تقدم العملية, 


Type 
TCal lBack=procedure (Position,Size:Longint) م‎ 


procedure CallBackProc (Position, Size: LongInt) ; 


begin 

EMAM. وت تر مت 2 كله‎ 2255 Max = Seg 

MEM ¢ 51565112 EOC ECS 3 123 1186 3ه‎ 55 2681 ELO; 
end; 


procedure FastFileCopy (Const InfileName, OutFileName: String; CallBack: 


CALL EEC) م‎ 

Const BufSize = 3*4*4096; 

Type 

121911016 12312 2 AFUE FEF 

TEU EEE = aEFEaY [lL EUS zel OE 2 
var 

Size 5 MEE EF 

BU f e : ضاخ‎ 1 116 

IMEIlE, 2211 ¢ Eile; 
SizeDone,SizeFile: Longint; 

begin 

if (InFileName <> OutFileName) then 
begin 


loli زب‎ 2S SEIL 
AssignFile (InFile, InFileName) ; 


8516 مركم‎ ESE (IME LE, LJ7 
try 
تتم ره‎ 2115 c= MLE 25 (LAME LE) 


AssignFile (OutFile, OutFileName) م‎ 
Svs Etem. Rew Ee (OUEEI le, 1)7; 

try 

SizeDone := 0; New (Buffer); 
repeat 
BlockRead (InFile, Buffer*^, BufSize, Size); 
LIne ((OLZEDONE, SIZE) م‎ 

CALIBER K NOIZEDONS م‎ SIZES) 8 

BLOCEWELEES (OUEELLE BU OES, Size) 

until Size < BufSize; 
FileSetDate (TFileRec (OutFile).Handle, 
FileGetDate (TFileRec (InFile) .Handle)) ; 
finally 

if Buffer <> Nil then Dispose (Buffer) ; 
System.close (OutFile) 

end; 
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finally 

System.close (InFile) م‎ 

end; 

end else 

Raise EInOutError.Create('File cannot be copied into itself'); 
end; 


الاستخدام بنفس الطريقة ركتابة المسار الكامل للملفين). 


3. نفس الطريقة السابقة باستخدام النمط عاتامادع]15, مثال: 


Procedure 00723775 ع2‎ 3211811 © (InFileName,OutFileName : 5621206 ( ; 
Const 

BufSize= 3*4*4096; 

Var 

IE J @ „OU E EAL Le 5 EOE OEM 

EU eR SAEEAV [EES ze | OE Eve; 


ReadBufSize: Integer; 

Begin 

E RIL; OEE = 221‏ لالط يا 

Try 
InFile:=TFileStream. Create (InFileName , fmOpenRead) ; 


OutFile:=TFileStream.Create (OutFileName, fmCreate) ; 
Repeat 

ReadBufSize:=InFile. Read (Buffer, BufSize) ; 
OutFile.Write (Buffer ع7 2081125513 ع2 ر‎ ( ; 
Until ReadBufSize<>BufSize; 

Finally 

InFile.Free; 

OutFile.Free; 

End; {Try} 

End; {CopyFile} 


4. طريقة أخرى بتنفيذ تعليمات سطر الأوامر بسهولة. مثال: 


function CopyFi leCmd (Source, Dest: string) : Boolean; 


begin 

Re SUE = WINEXEeCE (ECRAE طن ظ)‎ 1216 (COMO CODY SS 55!  ]دنالع 25س , 2ك‎ EY, 
SM HIDE) > 31 

end; 


والاستخدام سهل: 


if MyCopyFile('c:\windows\explorer.exe', 'd:\') then 
ShowMessage('OK'); 
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5. طريقة أخرى باستخدام التابع 0م5110 المكتبة 1851ا506 المعرف في 132ا50, حيث يمكن 


ف 
٠‏ 


عرض واجهة نسخ الملفات وتقدم العملية : 


article3.rar 
From ‘Article Websites' to ‘Article Websites’ 


CCLI TTT TTT 18/18 8 8 8 8 ِ Cancel 


9 Minutes Remaining 


uses 
ShellAPI; 


function CopyFileOrFolder (Source, Destination: string) : boolean; 
var 
SME LEO: TSE LEOOSTEEUCE 
Error: integer; 

م 0ق 2ل 1966 OCI LEGS‏ 


begin 

FillChar (SHFileOp, SizeOof (SHFileOop), 0); 
SHFi1leOop.Wnd := Application. Handle; 

SHEA LEO. wWEUACS ك‎ EO COPS 

51111 leOp.pErom := PChar (Source + #0); 
SHEN LEO. OLO < PCa ه)‎ 5-21 2256 LOM 2 م‎ 
SHEA LEO, ELEC S كه‎ FOF ALLOWNUNDO 

Error := SHFileOperation (SHFileOp) م‎ 

ABO EES 5= (BELO = IMD, 

if Aborted then 

211051255 07 

Result := (Error = 0) and not Aborted; 
end; 
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6. آخر طريقة نعرضها هنا باستخدام تابع 221 جديد بالنسبة إلى إصدارات ويندوز السابقة 
يستخدم التابع«اء!1الام00 سمات إضافية ويسمح بالتحكم في عملية النسخ ومشاهدة تقدم العملية... 
لنشاهد تعريف التابع: 


BOOL CopyFileEx ) 


LPCWSTR lpExistingEi leName, // pointer to name of an existing 
file 

LPCWSTR 1lpNewFileName, // 2596 2 ك5‎ EO 2 252212 ES COPY EO 

li PEROCRISS ROUTINE LOPrOGESSSROUCINE, // pointer to the callback 
6 WIRE LOM 

LPVOID 1pData, // to be passed to the callback function 


LPBOOL pbCancel, // flag that can be used to cancel the operation 
DWORD dwCopyFlags // flags that specify how the file is copied 
(7; 


يمكننا من خلال التعريف صياغة التابع في دلفي بمثل هذه الطريقة: 


private 
CENCE LEC: BOOLEAN; 


function TfMain.CopyWithProgress (sSource, sDest: string; Overwrite: 
Boolean = True) : Boolean; 

function CopyProgressRout ine (TotalFileSize, 

"179 1ل هن‎ 1317 38 8 TEARS 12812 FEC 

5015-2105 

Si 122 1113175681716310:8516ة‎ 6121213 LARGE INTEGER 
dwStreamNumber , 

dwCal 1536 ع15‎ 35 012: DWORD; 

hSourceFile, 

MES 6 11252 OM EEE RAME LE 

TPDAEA: EOIMEeE (E DOD; SEdEealL; 

begin 

1 اا ا حلت 50126 ە 0 11 

1f dwCallbackReason = CALLBACK STREAM SWITCH then 
TProgressBar (lpData) .Max := TotalFileSize.QuadPart م‎ 


"1712:5318 5815332 )1 5113 (0ق6‎ 126032 CIO 3 100 63:11 1317588 1012 SAAS 12612 EOC . 625 
Application. 220 م 5© 536 5115 5 ع‎ 

RESULE :3 EROCRESS CONTINUE 7 

end; 

begin 

1/1 Se EMIS ECancoelled EO EEUe, l1 YOU Wanê EO Caneel EMe COPY 92 622 E1 OM 
العم ميق‎ LEC $3 Fal ee; 
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Result := CopyFileEx (PChar (sSource), 

PChar (IncludeTrailingPathDelimiter (sDest)+ 

ExtractFileName (sSource)), @CopyProgressRoutine, pbCopyProgress, 
@rCancelled, 

COPY FILE FAIL IF EXISTS * Ord(Overwrite)) ; 

end; 


يمكن الغاء عملية النسخ بصبط المتغير لع ااعء٬‏ ه٣۴‏ على القيمة ع۲ا ميال الاستخدام: 
if CopyWithProgress (edFileToCopy. Text, edDest.Text) then‏ 
ShowMessage ('OK')‏ 
else‏ 
ShowMessage('Failed');‏ 
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مقدمة في برمجة السبكات باستخدام /1 11012 


للبدء في هذا المجال سنقوم بشرح بعض المصطلحات الأساسية 
مصطلحات الشبكات 


TCP/IP 


. Transmission Control Protocol and Internet Protocol إختصارل‎ 


و يعني في أغلب الأحيان بروتوكول للشبكة. 


Client 
و يعني عميل.‎ 


العميل باختصار هو عبارة عن العملية التي تبدأ بالاتصال بالخادم كما هو الحال في الهاتف فالشخص الذي 
يبدأ المكالمة هو العميل. 


Server 


هو الخادم. 


الخادم هو العملية التي تستقبل الطلبات من العملاء و الخادم قادر على تلقي أكثر من طلب في نفس الوقت 
وكل طلب أو اتصال قادم للخادم هو من عميل. 
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IP Address 


.Internet Protocol Address اختصارل‎ 


كل جهاز على شبكة 705/17 لديه عنوان خاص على هذه الشبكة , أي هذا العنوان مرتبط بهذا الجهاز. وال 
0 يكون 32 بت رإذا كان الاصدار الرابع) و هذا العنوان يشار له بأرقام و نقاط ملا 192.168.1.1 


ال 1 هوعبارة عن رقم الهاتف في منظومة الاتصال و بما أن المنزل مثلا يمكن أن يحوي أكثر من رقم 
هاتف فهذا يعني أن كل جهاز يمكن أن يكون له أكثر من 10 . 


Port 
65535 المنفذ وهو عبارة عن رقم (يأخذ الاحتمالات من 0 إلى‎ 


يشبه المنفذ باللاحقة التي تسبق رقم الهاتف فمثلا إذا اردت الاتصال بالسعودية فانت تطلب الرقم 
6 وهذا الرقم يوجهك إلى السعودية أما إذا اردت الاتصال بسوريا مثلا فأنت تطلب الرقم 00963 و 
هكذا فا منفذ هو الموجه لعملية الاتصال و هناك منافذ معروفة مسبقا و تستخدم بالتطبيقات فمثلا المنفذ 80 
يستخدم في صا و21 يستخدم في ال ۴۲۲ . 


والمنافذ دون 1024 هي مستخدمة مسبقا لذلك وجب علينا ألا نستخدم هذه المناغذ إلا بحال اردنا الاتصال 
بهذه البروتوكولات المعروفة فمثلا نريد صفحة من الانترنت فإننا تنصل بالبروتوكول صا عبر المنفذ 80 . 


TCP 

. Transmission Control Protocol اختصارل‎ 

یشار إلیه أحيان إلى بروتوكول التدفق اەoهProt (Stream‏ 

2/10 يحوي الكثير من البروتوكولات و وسائل لنقل البيانات و أشهر هذه النواقل هي 107 و 20لا . 


ال 106 هو عبارة عن بروتوكول معتمد على الاتصال ؛وهذا يعني أنه ليتم نقل البيانات عبر هذا 
البروتوكول يجب علينا أن نكون متصلين بخادم و بعدها نرسل المعلومات. 
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هذا النوع من البروتوكولات يضمن وصول البيانات حالما ترسل عبره. وهو يضمن دقة عملية النقل . أي لا 
يوجد ضياع بالبيانات عبره. 


UDP 


. User Datagram Protocol اختصارل‎ 


هذا النوع من البروتوكولات يستخدم لنقل كتل البيانات و لا يتطلب وجود اتصال مع الخادم لتم عملية 
الارسال. 


فهو يسمح بنقل الحزم الصغيرة من البيانات للجهازدون وجود اتصال بدئي. 

ولكن هذا النوع من البروتوكولات لا يضمن وصول البيانات للهدف و ربما لا تصل بنفس الترتيب الذي 
ارسلت به. وعندما يتم ارسال حزمة من البيانات عبر هذا البروتوكول فإنها ترسل ككتلة واحدة لذلك يجب 
علينا ألا نتجاوز أكبر حجم للحزمة المحدد بواسطة مكدس 1/10 . 


طبعا نظرا لهذه الاعتبارات نظن أن هذا البروتوكول لا يجدي نفعا و لكن الكثير من بروتوكولات الدفق 
(sاProtoco Streaming‏ تستخدم هذا البروتوكول مثل Re2|Audio‏ 


2 


وثوقية حزم ال 00لا تعتمد على وثوقية نوع الشبكة المستخدمة؛ فمثلا الشبكات المنزلية من نوع 20 ا 
تعتبرذات وثوقيه عالية والعديد من البرامج تستخدم هذا البروتوكول. 

طبعا ال 2۳لا يمكن أن تستخدم و لكن يجب دائما أن نضع بالحسبان أن البيانات ربما لن تصل لهدفها 
المنشود. 

ولأن ال 05لا لا يوجد لديه تأكيد لعملية وصول البيانات لذلك فهو لا يضمن عملية الوصول ؛ أي إذا ارسلت 
حزمة من البيانات لجهاز ما ففي هذه الحالة لا يوجد لدينا أي طريقة لمعرفة هل فعلا وصلت المعلومات لهذا 
الجهازأم لا. أي المكدس لا يستطيع تحديد ذلك و لذلك فهولن يرسل خطأ بحال عدم الوصول , و لذلك إذا 
اردنا أن نعلم إذا وصلت المعلومة أم لا علينا تزويد البرنامج بآلية تعلم الجهاز المرسل أنه وصلت المعلومة التي 
ارسلها. 
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ICMP 
Internet Control Message Protocol اختصارل‎ 
هذا البروتوكول عبارة عن بروتوكول نحكم و صيانة . بالحالة الاعتيادية نحن لا نستخدم هذا البروتوكول.‎ 


هذا البروتوكول يستخدم لعملية الاتصال مع الموجهات ۲5اه و أجزاء الشبكة الأخرى فهو يتيح لعقد 
الاتصال بمشاركة معلومات عن حالة 15 معين و مشاركة اعلامات الخطأ. فهو يستخدم مثلا في ال و0ئل و 
عأناهلاء11360 و غبرها من البروتوكولات. 


Thread 


هو عبارة عن المسار التنفيذي للبرنامج. الكثير من البرامج لديها ٠۲٠١۵١‏ واحد و لكن يمكن انشاء العديد 
من الخيوط (1516205) لإنشاء مسارات تنفيذية منفصلة لبرنامج ما. 


في انظمة تحوي العديد من المعالجات فإن ال 1016305 تتوزع بين هذه المعالجات لكي يكون هناك اقلاع 
اسرع. أما بالنسبة للأنظمة ذات المعالج الوحيد فإن هذه ال 7012205 يمكنها أن تنفذ بالاستباق. 


Fork 
. انظمة ال “الا لا تدعم ال 11122019 لكنها تدعم بدلا عن ذلك ال )اه۴‎ 


ال 1130159 هو عبارة عن خط أو مسار جديد منفصل يتكون و لكن هو لا يزال ضمن نفس العملية 
ودع©20) و لهذا فهو يتشارك نفس مساحة الذاكرة. 


أما ال و0:1010" فهو عبارة عن انقسام العملية (5دع©220) نفسها اي يتم انشاء عملية جديدة و نمرر لها 
المقايض,130015!). 


ال 011409 ليس فعال مثل ال 1016201079 و لكن لديه نفس محاسن ال 11123019 إضافة لذلك فهو رأي 
ال و20100) أكثر استقرارا و هواسهل للبرمجة في العديد من الحالات. 
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Winsock 

Windows Sockets J اختصار‎ 

هو عبارة عن مجموعة توابع 251 معرفة و معيارية لبرمجة بروتوكولات الشبكة. و أكثر ما تستخدم لبرمجة 
ال ۶/1۴" و لكن يمكن أن تستخدم لبرمجة بروتوكولات شبكة أخرى مثل (“«م10«/5) ااع/اهل١ا.‏ 


ال »اء50هآثالا يمكن الوصول لها عبر ملفات ربط ديناميكية (01) و هي جرد من نظام 0۷s‏ لہ . 


Stack 


مصطلح يشير إلى طبقة من نظام التشغيل التي تنفذ الشبكة و توفر ال ۸۴1 للمطورين ليستطيعوا الوصول 
للشبكة و في نظام 100010/5//ا المكدس 5]2210) ينجز ب W10٣)‏ . 


مقدمة فى 5¥ 1N‏ 
لنبدأ أولا بالمصطلح, فمصطاح 1001 اختصار ل Internet Direct‏ 


تم تصميم الاندي منذ البداية ليكون متعدد الخيوط (171230301) و الطريقة المتبعة في انشاء الخادم و 
العميل في الاندي مشابهة لما يتم في انظمة ال “71لا و لكن بصورة أسهل بكثير لأنك تعمل مع اندي و دلفي 
ببساطة. 

بشكل نموذجي خوادم يونكس ر <[0لا) لديها أكثر من عملية مصفية تنتظر الطلبات من العملاء و تقوم 
بعملية خدمة لطلبات هؤلاء العملاء و يتم بشكل طبيعي انشاء فرع ر )۲ه ليتم التعامل مع كل عميل على 
حدى و هذا مما يجعل الامور سهلة فكل 011 يتعامل مع عميل واحد فقط لا غير. و العملية لديها سيان الأمن 
الخاص بها و هذا السياق يعد بواسطة العملية الاساسية التي قامت بإنشاء ال ۴٠١۸‏ بناء على الاعتمادات أو 
التوثيق أو غيرها من الوسائل. 

خوادم ل۵٣1‏ تعمل بنفس الطريقة السابقة و لکن ال 1500105//ا لا يملك ال ۴٥۲k‏ بل يملك ال 151630 
وخوادم الاندي تقوم بنخصيص 1130 لكل عميل. 
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خوادم الاندي تقوم بإعداد 20ع! 1 مصغي جديد منفصل عن ال 171630 الأساسي للبرنامج و لذلك يقوم 
ال 10230 المصغي بعملية اصغاد لطلبات العميل. 

لذلك يتم توليد 70120 جديد لخدمة طلبات العميل و يتم بعدها تفعيل حوادت في سياق أو محيط هذا 
ال Thread) Thread‏ #اعامم )). 


منهجية اندي 
الاندي مختلف عن مكونات المقابس ر 00100001015 غ50016) التي نعرفها. و ستجد أن التعامل مع اندي 
سهل للغاية. 


تفريبا كل المكونات الأخرى تستخدم الاستدعاءات الغبر كتلية ر 109أء7/00-810) و تعمل بشكل غير 

متزامن (لإاادلا25[/0617000) و هذه المكونات تتطلب منا الاستجابة لكل الحوادث واعداد حالة الاجهزة و 

غالبا ما تطلب حلقات انتظار. 

كمثال في المكونات الأخرى عندما نستدعي حدث الاتصال ر ع000076) فيجب علينا الانتظار ليتم تفعيل 
حدث الاتصال أو نفعل حلقة حتى تشر لدينا خاصية أنه ثم الاتصال. 

أما في اندي فإنه عندما نستدعي الاتصال فانه ننتظر نتيجة هذا الاستدعاء فإذا تم النجاح فهذا يعني أنه 
المهمة أكملت بنجاح و إلا فإن استكناد (100مع<2) سيظهر. 

التعامل مع اندي يشبه التعامل مع الملفات فاندي تسمح لنا بوضع كل الشفرات ٥d٤ (١‏ ) في مكان واحد 
بدلا من بعثرتها في احداث مختلفة. 


اندي مصمم ليعمل جيدا مع الخيوط (101205). 


اذا الاندي مخثلف 
© الاندي يستخدم توابع 251 للمقابس الكثلية (Blocking Socket 851١‏ 


« الاندي لا يعتمد على الاحداثٌ و لكن الاندي لديه أحداث تستخدم للأغراض التعليمية و نحن لسنا 
بحاجة لها. 
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« الاندي مصمم ل 111205 و لکن الاندي يمكنه أن يستخدم بدون 1016205 . 
« الاندي مبرمج بواسطة البرمجة التسلسلية „(Sequential Programming)‏ 


«الاندي لديه مستوى عالي من التجريد ر 205030500) فمعظم المكونات الأخرى لا تعزل المبرمج عن 
المكدس بصورة فعالة و بدلا من ذلك تقوم بتمرير تعقيدات المكدس إل مجمع الدلفي أو ++0 


نظرة على العملاد 
الاندي مصمم ليوفر درجة عالية من التجريد قتعقيدات و تفاصيل المكدس الخاص ب 7100/10 مخفية عن 
المبرمج بالاندي. 


فمثلا جلسة العميل تبدو: 


with IndyClient do begin 


OSE ك5‎ 75685 566861535 . 35653615615 WALE. COM م‎ 2/7 HOSEL CEO CALA 
Port := 6000; // Port to call the server on 
LONNECE, 

Try 


££ Doe YOuE COMMU ACEI J O 
finally 

Disconnect; 
end; 


end; 


نظرة على الخوادم 
تقوم خوادم الاندي بإنشاد 10120 مصغية منفصلة عن 10120 الاساسي للبرنامج و هذا ال 101620 
المصغي يقوم بالإصغاء لطلبات العميل و هكذا يقوم خادم الاندي بتوليد خيط يصغي و يخدم العميل . 


www.delphi4arab.com 


مجلة مدندى د لفي للعرب D4A Magazine‏ 


العدد رقم :04 4 Issue‏ 


Threading 


هو عملية استخدام الخيوط (1112205) لتنفيذ المهام والاندي يستخدم 15120170 بشكل كبير في 
خوادمه و هذا مفيد للخادم و العميل. 


المقابس الغبر كتلية (5أع501 59كاء00-810/١)‏ يمكن أن تلجأ إلى الخيوط و لكنها نتحتاج للمزيد من 
المعالجة و مزاياها ستفقد في المقابس الكتلية ركاعاء50 و i)هاB).‏ 


لكي نفهم ال 1112205 بشكل معمق لننظر إلى هذه الصورة 


Prtogtatt Statts — 
3 خم‎ ctire Thread 
Wait fot messages 0 1 جنا عاق :عدت مد لدان ماله‎ Suspended Thitead 
0 3 Possible dela 
: 1E ã ical region 


Button clicked 


٠ ead cteatior‏ يله 
Thread destnactior‏ ب#لل 
لل "> #ج 3 5 5 212 


OK clicked, remove 0 Wait FoF Mess a56S 


: 2 Close buttor 
Am pplication cleats 7 
up and terminates 


البرنامج أثناء تنفيذه للعمليات يسير في خط واحد كما هو موضح بالصورة, و يكون بانتظار الرسائل من 
النظام. فعند الضغط على زر معين يقوم البرنامج بتنفيذ أوامر هذا الزر. في حالتنا هذه البرنامج مكون من 
خيط واحد أي لا يوجد لديه سوى 10120 واحد فقط. 

الأن لنفرض أننا بحاجة للقيام بعمليات حسابية طويلة فهذا يؤدي إلى نجمد واجهة البرنامج يمكننا حل هذه 
المشكلة بمعالجة الرسائل كما في 5ع551/165530ع5]00. 1|122]100م2800 و لكن يمكننا أيضا الاستفادة من 
موضوع تعدد الخيوط ١171516203079‏ و في هذه الحالة نقوم بإنشاء مسار فرعي للبرنامج يقوم بالعمليات 
المطلوبة كما في الصورة الثالية 
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ففي حالننا هذه يوجد مسار رئيسي للبرنامج هو 111230 1/01 1310 و عند الضغط على الزر ينم توليد 
مسار فرعي يقوم بالعمليات المطلوبة و هذا المسار الجديد هو عبارة 151630 فرعي للبرنامج. 


Forking 
لكي نفهم ال 0110109 لنتأمل هذه الصورة‎ 
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bash 
PIO=1579 
PPIOD=1279 


fork) 


bash bash new program 
PID=1579 PID=2816 with new PID 
PPIO=1279 PPIO=1579 
Exec) 

Î new program 
wait) PID=2816 with same PID 
(process 5 
waits until PPIO=1579 
other exits) 


exit) 
bash 


PID=1979 
PPIO=1279 


بالبداية ال 10 هو عبارة عن ال 10 5دع5000 أي معرف العملية و هو رقم خاص يدل على عملية معينة 

فقط أي لكل عملية معرف خاص بها أما ال 0010 فهو عبارة عن ال 10 كوععه۲٥‏ "عه أي معرف العملية 
الأب أي الأب الخاص بهذه العملية المنولدة مع ملاحظة أن لكل عملية أب واحد فقط. 

الان عندما نقوم بعملية ۴٥۲)‏ تقوم العملية بتوليد عملية جديدة تسمى ب 5دعع2:0 01110 أما العملية 

التي ولدت العملية الجديدة تسمى 5دع0:02 01ع030 و هكذا نجد أنه نم توليد عملية جديدة بدلا من 

انشاء خيط كما في 1700105//ا و هذه العملية الجديدة اصبح لها معرف خاص و لها أب. 
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نماذج برمجة الشبكات 
هناك نوعان من برمجة ال 5اع50©1 نحت بينئة الوندوز هما: 
1 : الكثلي 
١10-02‏ :غبر الكثلي 
وأحيانا تدعى هذه النماذج ب: 
(Synchronous) jal je : 1‏ 
١10-02‏ : غير مترامن (Asynchronous)‏ 


نحت بيئة اليونكس النظام المتبع هو 81001000 فقط. 


بالطبع هناك نماذج أخرى منها 205 Completion‏ 1/0 و 1/0 0عمم01/13 و هذه النماذج في العادة 
تستخدم في برمجة تطبيقات الخوادم المتقدمة. كما أن هذه النماذج ليست مستخدمة في كل الانظمة. 


الاندي 10 يتضمن دعم لهذه النماذج. 


الاندي يستخدم هذا النموذج. واستدعادات هذا النموذج تشبه إلى درجة كببرة القرادة و الكتابة إلى 
ملف. فعندما نقوم بقرادة أو كتابة ملف فإن ننيجة الاجراء لا تعود إلا عندما تنتهي العملية. 

الفرق بين العمل بالملفات وال 5أع501 هوأن العمل بال 5أع50©1 ستأخذ وقتا أطول لأن البيانات لن 
تتوفر مباشرة للقرادة و الكتابة. 

في الاندي يكفي استدعاء وحيد لعمل اتصال و ننتظر بعدها ننيجة هذا الاستدعاء ففي حال النجاح فهذا 
يعني أن الاتصال تم و إلا سيتم استدعاء الاستثناء المناسب. 

Non-Blocking Model 

يعمل هذا النموذج على نظام من الحوادث. فهنا الاستدعاءات تتم و عندما تكمل هذه الاستدعادات تكون 


بحاجة للانتباه لانها تعمل 
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عندما نريد الاتصال فإنه يتوجب علينا استدعاء منهج الاتصال و هذا الاستدعاء سيعود مباشرة قبل انمام 
عملية الاتصال. و عندما تتم عملية الاتصال يتم تفعيل حدث ما. هذا يتطلب أن تكون منطقية الاتصال 
مجرأة إلى العديد من الاجرادات أو تثم وفق حلقات. 


Winsock تاريخ‎ 

بالبداية كان هناك ببركيلي يونكس ر ×اہلا لإعا!/ع6) .و كان لديه توابع معيارية Standard Socket‏ 
1 و التي اصبحت متبناة و منتشرة بين توزيعات اليونكس المختلفة. 

و بعدها اتى 1700105//ا و قرر أحدهم أنه من الجيد أن يكون هناك مقدرة لبرمجة ال 7102/10 في الوندوز. 
لذلك نقلوا توابع اليونكس الشائعة و هذا مما سمح نقل شيفرات اليونكس الحالية للوندوز بسهولة. 


ال 8101409 ليست سيية 

يتم بشكل متكرر مهاجمة هذا النموذج استنادا على مقدمات منطقية خاطنة. و على النقيض من الاعتقاد 
السائد هذا النموذج ليس سيئًا. 

عندما تم نقل توابع اليونكس للوندوز ثم تسمية هذه التوابع ب .(Windows Sockets) Winsock‏ و 
خلال عملية النقل ظهرت المشكلة سريعا. 

في اليونكس كان شائعا إنشاء ال ۴٥۲۸‏ رو هو مشابه لتعدد الخیوط 10/620109- اانا" و لکن بعمليات 
منفصلة بدلا من الخيوط. 

عملاء و خوادم اليونكس يقومون بعمل ۴٥۲۸‏ رأي توليد عملية جديدة) لكل اتصال. ثم يتم تنفيذ هذه 
العمليات بشكل منفصل و يتم استخدام نموذج ودأءاء8/0 . 


في نظام 3.1 ۷/٣٥٥۷‏ لم يستطع عمل ۴٥۲‏ بشكل مجد و ذلك بسبب نقص دعم تعدد المهام 
MultiTasking‏ . 


كذلك نظام 3.1 1700100/5/الا لم يكن يدعم الخيوط ر ٦٣۲٤۵۵:‏ ). وهذا مما جعل استخدام تموذج 
9 في برمجة التطبيقات أن يسبب في نجمد واجهة المستخدم. 
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التوجيه Inline‏ 


إنطلافا من دلفي 2005 يمكن أن يضاف التوجيه 1010عند نهاية تعريف اسم ال ١1600006‏ لزيادة 


+4 هوي ۰ آي 


سرعة تنفيذها على حساب حجم الذاكرة المحجورة للع له ١٣ء۷‏ ضمن الملف التلفيذي الناتج. 
الموضيح: 
أولا يجب أن نعلم أن لكل إصدار دلفي رقم نسخة محدد كما يلي: 
{ŞIFDEF VER8O0} - Delphi 1‏ 
{ŞIFDEF VER90} - Delphi 2‏ 
{ŞIFDEF VER100} - Delphi 3‏ 
{$ŞIFDEF VER120} - Delphi 4‏ 
{ŞIFDEF VER130} - Delphi 5‏ 
{ŞIFDEF VER140} - Delphi 6‏ 
{$ŞIFDEF VER150} - Delphi 7‏ 
ŞIFDEF VER160} - Delphi 8‏ { 
{ŞIFDEF VER170} - Delphi 2005‏ 
{ŞIFDEF VER180} - Delphi 2006‏ 
{$ŞIFDEF VER180} - Delphi 2007‏ 
{$ŞIFDEF VER185} - Delphi 2007‏ 
{ŞIFDEF VER200} - Delphi 2009‏ 
{$ŞIFDEF VER210} - Delphi 2010‏ 
{SIFDEF VER220} - Delphi XE‏ 


إذا كنت تستخدم اما و ما بعدها , يمكن كتابة الشرط كما يلي : 


{$IF CompilerVversion >= 18.5} 
//some code only compiled for Delphi 2007 and later 


) 5 52110 } 

Delphi XE > 22 
Delphi 2010 - 21 
Delphi 2009 - 20 
Delphi 2007 - 18.5 
Delphi 2006 - 18 
Delphi 2005 - 17 
Delphi 8 - 6 
Delphi 7 - 5 
Delphi 6 - 4 


www.delphi4arab.com 


مجلة مدندى د لفي للعرب D4A Magazine‏ 


نعمل على دلفي 2010 أي 14 نكتب إثنين, إحداهما باستخدام التوجيه ©1011 


ومن المستحسن أن يكون لهما نفس التعليمات لتسهيل المقارنة فقط. 

Procedure TestSAS; 
Begin 

MessageBoxA(0, 'TestSAS' ,Nil,0) ; 
End ; 
Procedure TestSpeedAndSize; Inline; 
// 1511 CompilerVversion >= 17}Inline; {$ŞIFEND} 
Begin 

MessageBoxA (0, 'TestSpeedAndSize',Nil,0) : 


End ;‏ 
نقح كلاهما باستخدام برنامج و0bراا©‏ 


Procedure TestSAS 

Beginning Address was : 004A3BFC 
CALL 004A3BEO 

RETIN 

End Address was : 001: 


Beginning Address was : 004238180 ; 
PUSH 0 

PUSH 0 

PUSH 4A3BF4 // ‘TestSAS’ 

PUSH 0 

CALL 00408994 //MessaageBoxA 
RETN 

End Address was : 004A3BEO; 


Procedure TestSpeesAndSize 


Beginning Address was : 004A3C04; 
PUSH 0 

PUSH 0 

PUSH 4A3C18 // ‘TestSpeedAndSize’ 
PUSH 0 

CALL 00408994 //MessaageBoxA 

RETN 

End Address was : 004A3C14; 
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الملاحظات : 

: (TestSAS) الأولى‎ 

إستدعاء لد 116553068078 (وقت تنفيذ الإستدعاء 11) 
تنفيذ إجراء ال 8078 15530 (وقت تنفيذ الإجراء 12) 
وفت التلفيذ المستغرق 12 + 11 = 1آ 


الثافية (TestSpeedAndSize)‏ : 
تنفيذ إجراء ال 112553068078 , مباشرة ! 
وقت التنفيذ المستغرى - (وقت تنفيذ الإجراء “807 530د1/15) 


1 تنفيذ الدوا ل التي تعنوي التوجيه /١/1©‏ أسرع م نتنفيذ الدوال العادية . 


في حالة نكرار إستعمال الووال التي نحتوي ©1117 , سينكرر الكود في كل مرة ثم إستدعانها 
لذا فإن الحجم النهائي للملف التنفيذي سيريد ؟, نستدعي 3 مرات و نرى! 


Beginning Address was : 004238 
USM Û 

USE O 

USH 4A3C6C 

USM Û 

ALL 0040B994 

ETN 
/Som Asm Code 
USE Û 

USE Û 

USH 4A3C94 
USM O 

ALL 0040B994 
ETN 
/SomMm Asm Code 
USM O 

US Û 

USE 4 
US Û 

CALL 0040B994 
REIN 
End Address was : 004A3CB8; 


O O‏ كا o © E‏ © 0 ل n‏ كا © Ve‏ کہ لوت لوھ روھ ل 
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كما نلاحظ فإنه تم تكرار الكود في البرنامج , لذا فإن زيادة حجم الملف التنفيدي 
النهائي حتمية , رلن تلاحظ الفرق في حالة التكرار لمرتين او ثلاث انا أتكلم عن عدد كبير من المرات) 


2- فييك ۸0۵ا ل ال 111/7 يزيد من حجم الارنامج , كرا ركود النابع 
عكس الدوال العادية , التي هي عبارة عن إِسندعادات كود واحد فقط يكفي). 


3 إذا علينا ا موازنة في إستخدام النوجيه 17/7 , نكما له إجابية فله أيصا سلبية 
تكرا ركود الإسندعاء . 


لكي نجعل كود برنامجنا متوافق على حسب نسخ الدلفي , نقوم بإستخدام التوجيه 
{$IFDEF VERSO}‏ حيث ٠/5580‏ تشير إلى 1 Delphi‏ . 


: ميال‎ 
E URE E 1261 MyE UNE (I: 226503 2( : BOOLEAN; ) SLEDES اك‎ 21 0( Im كك 2 5ك‎ 
f 1 
Function MyFunc (I: Integer) : Boolean; 1511 CompilerVersion >= 17}Inline; 
ISTE END} 


الأول أخبرنا المترجم أن يقوم بتعريف ۸۲ں ۷۷۴ على أنه ٣٥‏ ااہ] في حالة كان 
الإصدار الذي نعمل به 2010 الماع , و الذي كتابة أخرى تفيد أخذ بالتوجيه 
©1011 , في حالة كان إصدار دلفي من 2005 و ما تلاه . 
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مثلة عملية بدلفي - بقلم 


تجسيد للمكدس )5123612 


تعريف : المكدس حيز من الذاكرة , على شكل جدول لتصنيف البيانات (إستدعادات الدوال أو عناوين 
البارامترات أو قيم ثابته) , تعمل بطريقة أخر ما يدخل للجدول - أول ما يخرج منه (150ا) 
ةا _ 
Push ¥ e‏ 
E‏ 
Eî‏ 
| | 


تعريف عملي أدق : سنقوم ببرمجة إجراءات و دوال لمحاكاة التعامل مع ال )ةك بنفس مبدأ 
العمل , last-in, first-out‏ . 

إنشاء مكدس جديد. 

إنهاء و نحرير مكدس موجود. 

إضافة عنصر للمكدس . 

شاج متسر من اکس 

هل المكدس فار . 

هل المكدس مملوء . 

هل أستطيع أن أضيف أو أن أستخرج عنصر من المكدس ؟ . 


نجسید ال51201 بجدول 10مع56 : 


(COREE 
SEa eR Max Size > 20, 
Type 
TStack = Packed Record 
MSM 4 ay [IEE MES OA ASI OE E O © 
SESE : IMEGIEE VUES 
IMIG 
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إنشاء مكدس جديد : الحالة الابتدائية للمكدس أشرنا إليها بالقيمة 1- 
اه دي علالاه ماه 22ت ااا FUNCLIONn‏ 
Begin‏ 
RESULE. SEALE 7‏ 
IMCS‏ 


هل المكدس فارع : 
7ت لت 5ت 5 : (لعلك 22 5 - الك نات ) / كلك 526 5 لزت ع UAE‏ 
Begin‏ 
RESULE E= (OCAECkK. SEALE =5 =p‏ 
كا 


«٠ 


هل المكدس مملوء : إذا كان عدد عناصر المكدس يشير الى الحد الأقصى 250 


UME E LOM 5 65 1ل ككل‎ (OEIC 5 622 المت : (عل‎ SEN 2 
Begin 

RESULE 4= (SACK. 865326 = Slack Max CIZE)g 
EME 


إضافة عنصر للمكدس : ننجقق من أن المكدس غير ممتلئ , في حالة كان اول عنصر سنضيفه و نعيد القيمة 
الى 1 , وإن لم يكن كذلك نزيد في العداد (5126) ب 1 . 


12125223 AMEE تامام‎ ECEM  )5 155618 509 6 ACE SSE); VEU 


Begin 
TIT NOE 560121111952217 Then 
Begin 
If 5201.85 تاه‎ = =| Then 
SLACK. SEAL = 1 Elce 
INC ا عات‎ SLEIEY 
5 8 161 2 16ت 3 8 الدع‎ 5132:5787 
MCL 
E MEA 


إستخراج عنصر من المكدس : تنحقق أولا من ان المكدس ليس خال , ومن ثم نعمل إفراغ للخانة الأخبرة 

1815 رك ¢ 11م 5955 (Stack‏ 17ت 3121 0 12120666133165 
Begin‏ 

112 NOE 52225005 بزعا‎ ) 5622212 Ren 

Begin 
لزت 8 1 كلت دكات‎ LS ESER SEE E CS, 

E 552101295 020 > 1 MME 
Dec(Stack.Stat) Else 

SEAR. SEA > 7 

End; 
End; 
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: إنهاء و نحرير مكدس موجود‎ 
Procedure FEFrteeSLlLack )51 361: 2516 (16ع3‎ : 
Begin 
Wale MOE Stace mot (SEACK) Do 
EXLFICEM )85163 (ع1ج‎ 
50501285365 ll, 
MMC 


UNE ELORM LAS ELALEOM (SEACKE TSEC) 5 SELINGS 
Begin 
WE 56 5361210561 ) 5 ESC) TREN 
RESUMES YY 31158 
54 التق‎ 655 8686© ko 1 COM] 5 65216. SEALE ll م‎ 
End; 


حفظ المكدس في ملف نصي أو في 15011095 : 


8 اك رهن قلع 108 :19ت 18 اط مر6اه ت 6 108 (SEEKS‏ 6616 548 61111232 19512565 


Var 
_i: Byte;//<=250. 
Begin 
D1 STE. CLEA EF 
E SEAS EAE - 1 HEN 
DI SUAS. ACE (SEE كلت‎ MOC E) 
Else 
Begin 


Ti 553615 86855 = Siack Max Size Ten 
DisTab.Add(' [Stack Full] ') 
Else 
FOE _ 1€ 6م8553‎ 815815 DOWATO 1 DC 
DILSTAS ACC (SEAaCkK. TEER L1) 7 
EE 
AMC 


¢ 


الخلاصة : 
قمنا بمحاكاة لعمل المكدس , لم نتتطرق فيها الى التفاصيل. أيضا إستخدمنا فقط عناصر من نمط واحد 
(56109) لتسهيل التطبيق لفهم أكثر لعملية ال م20/ ادناه . 
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العدد رقم :04 4 Issue‏ 


قواعد البيانات - بقلم ترجمة 
تعرف على فايربيرد ۴٣۲۵‏ بدقيقيين 


مقدمة 


إذا كنت تقرأ هذه المقالة, فمن المحتمل أنها المرة الأولى التي تتعرف فيها على فايرببردنظام إدارة قواعد 
البيانات العلائقية. ستعرض لك هذه الورقة المميزات الرئيسية لقواعد بيانات فايربيرد. وأنا متأكد أنك في 
النهاية ستكون تواقا لتنزيل مثبتها الخفيف لتجربها بنفسك. 


نبذة تاريذية 


» يف 


هيو مھ 


انبئقت فايريبردمن الشفرة المصدرية لقاعدة بيانات انتربيس 6.0 من بورلاند. وهي مفتوحة المصدولا . 
يوجدبها ترخيص مزدوج. وسواء احتجت إليها لتطبيقات نجارية أو مفتوحة المصدر فهي مجاذا بالكامل! 


٠+ هوجوو‎ 


تفنية ذايرببردقيد الاستخدام منذ 20 عاماء مما يجعلها منتجا شديدالنضوجوالا ستقرار 


المميزات الرئيسية . 
لا يغرنك حجم المثبت! فايرببرد هو نظام قوي ومكتمل المزايا لإدارة قواعد البيانات العلائقية. ويمكنه 


مناولة قواعد بيانات حجمها من مجموعة كيلو بايت فقط إلى العديد من الغيغابايت مع أداء جيد ودون 
الحاجة إلى صيانتها في أغلب الأحوال! 
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فيما يلي قائمة ببعض أهم مزايا فايربيرد: 


Trigger والمفعلا‎ Stored دعم كامل للإجرراديات المشزوفة :لالء722:02‎ ٠ 

٠.‏ تلبية كاملة لعمليات 20100 (الوحدانية, التجائس. العزل. المنانة) 

Referential Integrityaچ 4ر‎ Jali ° 

Multi Generational Architectujky معمارية متعددة الأج‎ ٠ 

0501 لغة داخلية مكتملة المزايا للاجرانيات المخزونة والمفعلات‎ ٠ 

 الاداةيجراذلا دعم الإجرائيات‎ ٠ 

58۸5 ندرة الحاجظوجود مدراء قواعد بيانات متخصصين‎ ٠ 

. ل <اجة للتوصيفاتقريبا - فقط قم بتثيته وابدأ التشغيل! 

٠‏ مجتمع كببرلفايربيرد والعديد من الأماكن التي نجد فيها دعما مجانيا جيدا. 

٠‏ خيار استخدام نسخة مدمجع0200ء بملف وحيد - خيار جيد لإنشاء تطبيقات على القرص 
المدمج. أو لمستخدم واحد. أو تلك الخاصة بالعرض والتقييم. 

٠‏ العشرات من الأدوات من مصادر خارجيتمن ضمنها أدوات رسومية للتحكم ولإدارة, وأدوات توامة 
البيانات, ألخ 

! الكتابة بعناية- استعادة سريعة. دون الحاجة لملفات تدوين العمليات دو0!‎ ٠. 

٠‏ عدة طرق للنفاذ إلى قاعدة البياذلغير الدوال الأصلية 251/ع03]00 أو مسيرات 5دع201 06 أو 
مزودات 01080 و 012108 و دوت نت و مسبرات JDBC‏ وقوالب لبايثون Python‏ و PHP‏ و Perl‏ « 


الخ. 
٠‏ دعم جذريلأنظمة التسغيل الرئيسية بما فيها و يندوز و لينوكس و سولاريس وماك اواس و -5[ا 
UX‏ و FreeBSD‏ . 


Incremental Backups نسخ احنياطي م.ركب ترايدي‎ ٠ 

٠‏ متوفر ببنية 64 بت 

5501| تنفيذ كلي للمؤشن50]له في لغة‎ ٠ 

٠‏ جداولمراقية 

1130530 مفعلات 1:55 عند الادصال و انجاز العمليانةه‎ ٠ 

٠.‏ جداول موفية 

٠‏ دوال القتبة850ع1:30 - لعرفة ماذا يحدث في خادم قاعدة البيانات 
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جربها الآن!. 


تجربة فايربيرد مهمة سهلة جدا. يصل حجم المثبت إلى أقل من7 م ب (حسب نظام التشغيل) كما أنه آلي 
بالكامل. يمكنك تنزيله من موقع فايرببرد الرئيسي. 


ستلاحظ أن خادم فايربيرد يأتي بأربعة نكهات: خادم ممقاؤء/0ء15ءمل5, تقليدي0135510, تقليدي ممتاز 
2غأ01355]عمناك و 4ج 5075060 . يمكنك البدء بالخادم الممتاز الآن. ينصح بالتقليدي لأغراض 
الاستخدام مع أجهزة5112 وبعض الحالات الخاصة الأخرى. يتقاسم الخادم الممتاز مخزونه ©0201 مع حالات 
الاتصال بقاعدة البيانات ويستخادم المسارات/الخيوط 15205 للتعامل مع كل اتصال. ويقوم التقليدي 
ببدء عملية معالجة خادم مستقلة لكل اتصال قائم. بينما يوفر التقليدي الممتاز معالجة خادم واحدة 

ومتعددة المسارات مع مخزون مستقل لكل اتصال. 


النسخة المدمجة 060060ء هي تنوع مذهل للخادم. فهي خادم فايربيرد مكتمل المزايا محزمة في ملفات 
معدودة. وهي بذلك سهلة عند نشرها , حيث لا توج حاجة لتركيب وتشبيطلخادم. هي تلائم عروض 
الأقراص المدمجة. ونسخ العرض والتقييم للبرامج والتطبيقات المكتبية القائمة بذاتها. 

تأتي فايربيرد مع مجموعة كاملة من أدوات الأوامر النصية التي تسمح لك بإنشاء قواعد بيانات واستخلاص 
إحصانيات عنها, وتنفيذ أوامر 501 أو تعليمات نصية 50105 , كذلك إجراء عمليات النسخ الاحتياطي 
والاسترجاع. إلى آخر ذلك من العمليات. وإذا كنت تفضل استخدام أدوات بواجهة استخدام رسومية , فهناك 
العديد من الخيارات يمكنك الاختيار من بينها بما فيها البرامج المجانية. راجع القائمة في آخر هذه الورفة. 
في ويندوز يمكنك تشغيل فايربيرد كخدمةأو كتطبيق المثبت يمكنه إنشاء أيقونة في لوحة التحكم 
اPane 0050١‏ لاستخدامها لإدارة الخادم (ابتداىى, إيقاف, الخ..) 


التوثيق. 
يوجد العديد من الأوراق. و إجابات الأسئلة المنكررة 6005 والمقالات التي قد ترغب بإلقاء نظرة عليها في 


موقع فايربيرد الرئيسي. أيضا, يمكنك تفقد احتمال وجود مواقع أو منتديات بلغتك, من أجل الحصول على 
المساندة والدعم. 


كل هذه المعلومات يمكن ايجادها هنا أو هناك في موقع فايربيرد الرئيسي. أيضا راجع الموقع 
5.8 ل firebir‏ .ا للحصول آخر مستجدات الأخبار المتعلقة بفايربيرد. 
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لجميع أ<جام قواعد البياذات . 


البعض يعتقد أن فايرببرد هو نظام إدارة قواعد بيانات علائقية تستخدم فقط مع قواعد البيانات صغيرة 
الحجم بخطوط اتصال محدودة. أذهم مخطئونإلفد تم استخدام فايربيرد مع العديد من قواعد البيانات 
الضخمة و بالكثبر من خطوط الاتصال. يمكنك قرادة مقالة كاملة حول قاعدة بيانات حقيقية بحجم 1 
تبرابايت. 


لشاركتك في مقالات المجلة. أرسل فقط المقالة بصيغة »90 أو »هه دون تنسيق مسبق إلى إدارة المنتدى 
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